4 GOTO200
5 POKE53280,0:POKE53281,0
10 DIM R(8)
20 DATA 1000,500,100,50,10,5,1,0,0
30 FORX=0TO8:READR(X):NEXT
40 R$="MDCLXVI"
50 INPUT"[147][155]        ARABISCHE ZAHL";A$:A=VAL(A$)
51 IFA<=0ORA>5000THENPRINT"[145][145][145][145][145][145]":GOTO50
60 PRINT"       [159]";A;"= ROEMISCHER WERT= [154]";
70 FORX=0TO6
80 IFA>=R(X)THENPRINTMID$(R$,X+1,1);:A=A-R(X):GOTO80
90 Y=1+2*INT((X+2)/2)
100 IFA>=R(X)-R(Y-1)THENPRINTMID$(R$,Y,1);:A=A+R(Y-1):GOTO80
110 NEXT
120 PRINT:PRINT"[155]        NOCH EINE AUSGABE (J/N)?"
130 GETG$:IFG$=""THEN130
140 IFG$="J"THEN50
150 IFG$="N"THEN5000
160 GOTO130
200 PRINT"[147][156]":POKE53280,0:POKE53281,0
210 PRINT"            ROEMISCH/ARABISCH"
211 PRINT"            ZAHLEN-UMWANDLUNG[154]"
212 PRINT"            KARLHEINZ  HERPEL[129]"
213 PRINT"                (C) 1985   "
220 PRINTTAB(14)"DRUECK SPACE"
221 POKE198,0:WAIT198,1:GETE$
222 IFE$=CHR$(32)THEN5
223 GOTO221
5000 PRINT"[147]"
5001 PRINTTAB(8)"PROGRAMM BEENDEN       [1]"
5002 PRINTTAB(8)"PROGRAMM WIEDERHOLEN   [2]"
5004 POKE198,0:WAIT198,1:GETE$
5005 IFE$="1"THENSYS64760
5006 IFE$="2"THEN50
5008 GOTO5004